home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304E.ZIP;1 / EXPAS.ARJ / FGDOC / EXAMPLES / PASCAL / 16-03.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-01-24  |  539 b   |  29 lines
  1. program main;
  2. uses fgmain, fgmisc;
  3.  
  4. var
  5.    i              : integer;
  6.    units_per_tick : integer;
  7.    seconds        : integer;
  8.    key, aux       : byte;
  9.  
  10. begin
  11.   seconds := 0;
  12.  
  13.   writeln('Benchmarking system speed...');
  14.   units_per_tick := fg_measure;
  15.   writeln('Benchmark completed.');
  16.  
  17.   fg_intkey(key,aux);
  18.  
  19.   repeat
  20.   begin
  21.     for i := 0 to 90 do
  22.       fg_stall(units_per_tick);
  23.     inc(seconds,5);
  24.     writeln(seconds,' seconds have elapsed.');
  25.     fg_intkey(key,aux);
  26.   end;
  27.   until (key+aux > 0);
  28. end.
  29.